home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / SCRNE2.SDA / YIPES! STRIPES! (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  957b  |  19 lines
  1. 10 REM  YIPES! STRIPES!
  2. 20 RESTORE:FORI=830TO893:READA%:POKEI,A%:NEXT
  3. 30 A$=CHR$(142)+"[147]YIPES! STRIPES!":PRINTA$
  4. 40 GOSUB100:C$="[147][150]"+Z$+X$+W$+Y$:D$=C$:SYS830:END
  5. 100 Z$="[150]        [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]          "
  6. 110 Y$="        [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]          "
  7. 120 X$="        [194][153]   HOW'S THAT FOR   [150][194]          "
  8. 130 W$="        [194][153]     EXCITEMENT?    [150][194]          "
  9. 140 RETURN
  10. 830 DATA169,0,133,198,162,16,202,142,33,208
  11. 840 DATA142,32,208,160,64,136,208,253,202,16
  12. 850 DATA242,165,198,240,235,160,2,177,71,153
  13. 860 DATA104,3,136,208,248,162,0,177,71,141
  14. 870 DATA112,3,189,72,158,32,210,255,232,224
  15. 880 DATA170,208,245,96,255,32,210,255,232,224
  16. 890 DATA87,208,245,96
  17. 900 REM THIS MC CHANGES BACKGROUND AND  BORDER COLORS SO RAPIDLY THAT THE VIEWERPERCEIVES STRIPES ON THE SCREEN. PRESS  SHIFT FOR A DIFFERENT EFFECT.
  18. 910 REM PRESS ANY OTHER KEY TO EXIT WITHMESSAGE. THE MESSAGE WILL BE THE LAST   STRING REASSIGNED BEFORE CALLING MC     ROUTINE. POKE DIFFERENT VALUES INTO 844
  19.